Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/netbro1a/frmbrows.frm

Visual Basic Form | 1999-09-13 | 43.3 KB | 1,466 lines

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmbrowse
   BackColor       =   &H00FFFFFF&
   Caption         =   "VB Net Browser"
   ClientHeight    =   5430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6675
   Icon            =   "frmbrowse.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5430
   ScaleWidth      =   6675
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture7
      BorderStyle     =   0  'None
      Height          =   3855
      Left            =   2430
      MousePointer    =   9  'Size W E
      ScaleHeight     =   3855
      ScaleWidth      =   90
      TabIndex        =   14
      Top             =   1320
      Visible         =   0   'False
      Width           =   90
   End
   Begin SHDocVwCtl.WebBrowser wb
      CausesValidation=   0   'False
      Height          =   3135
      Left            =   0
      TabIndex        =   3
      Top             =   1320
      Width           =   7095
      ExtentX         =   12515
      ExtentY         =   5530
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin MSComctlLib.ListView ListView1
      Height          =   3135
      Left            =   120
      TabIndex        =   11
      Top             =   1800
      Visible         =   0   'False
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   5530
      View            =   1
      Arrange         =   2
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      GridLines       =   -1  'True
      HotTracking     =   -1  'True
      HoverSelection  =   -1  'True
      _Version        =   393217
      Icons           =   "ImageList1"
      SmallIcons      =   "ImageList1"
      ColHdrIcons     =   "ImageList1"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      Appearance      =   0
      NumItems        =   0
   End
   Begin MSComDlg.CommonDialog dialog
      Left            =   3120
      Top             =   4560
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      CancelError     =   -1  'True
   End
   Begin VB.PictureBox Picture4
      Align           =   2  'Align Bottom
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'None
      DrawStyle       =   5  'Transparent
      FillColor       =   &H00FFFFC0&
      FillStyle       =   0  'Solid
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FF80&
      Height          =   230
      Left            =   0
      ScaleHeight     =   15
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   445
      TabIndex        =   9
      Top             =   5205
      Width           =   6675
      Begin VB.CommandButton Command2
         Caption         =   "E-Mail"
         Height          =   225
         Left            =   5880
         TabIndex        =   17
         Top             =   0
         Width           =   735
      End
      Begin VB.CommandButton Command1
         Appearance      =   0  'Flat
         Caption         =   "Search"
         Height          =   225
         Left            =   5400
         TabIndex        =   15
         Top             =   0
         Width           =   735
      End
   End
   Begin MSComctlLib.ImageList ImageList1
      Left            =   2040
      Top             =   2280
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
         NumListImages   =   1
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
            Picture         =   "frmbrowse.frx":08CA
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer2
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   5520
      Top             =   2400
   End
   Begin InetCtlsObjects.Inet Inet1
      Left            =   4200
      Top             =   1680
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.PictureBox Picture11
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   735
      Left            =   1440
      ScaleHeight     =   735
      ScaleWidth      =   1095
      TabIndex        =   2
      Top             =   4080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.PictureBox Picture2
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   210
      Left            =   0
      ScaleHeight     =   210
      ScaleWidth      =   6675
      TabIndex        =   1
      Top             =   0
      Width           =   6675
      Begin VB.PictureBox Picture3
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   4680
         ScaleHeight     =   255
         ScaleWidth      =   495
         TabIndex        =   8
         Top             =   0
         Visible         =   0   'False
         Width           =   495
      End
      Begin VB.Label mnu
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "&Help"
         Height          =   195
         Index           =   4
         Left            =   2580
         TabIndex        =   16
         Top             =   0
         Width           =   330
      End
      Begin VB.Label mnu
         AutoSize        =   -1  'True
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "&Bookmarks"
         Height          =   195
         Index           =   3
         Left            =   1600
         TabIndex        =   7
         Top             =   0
         Width           =   795
      End
      Begin VB.Label mnu
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Options"
         Height          =   195
         Index           =   2
         Left            =   915
         TabIndex        =   6
         Top             =   0
         Width           =   540
      End
      Begin VB.Label mnu
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&Edit"
         Height          =   195
         Index           =   1
         Left            =   480
         TabIndex        =   5
         Top             =   0
         Width           =   270
      End
      Begin VB.Label mnu
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "&File"
         Height          =   195
         Index           =   0
         Left            =   120
         TabIndex        =   4
         Top             =   0
         Width           =   240
      End
   End
   Begin VB.PictureBox Picture1
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   1110
      Left            =   0
      ScaleHeight     =   1110
      ScaleWidth      =   6675
      TabIndex        =   0
      Top             =   210
      Width           =   6675
      Begin VB.ComboBox Combo1
         Height          =   315
         Left            =   120
         TabIndex        =   18
         Text            =   "go.to/mostafa"
         Top             =   600
         Width           =   6015
      End
      Begin PicClip.PictureClip Clip1
         Left            =   3960
         Top             =   0
         _ExtentX        =   1085
         _ExtentY        =   661
         _Version        =   393216
      End
      Begin VB.PictureBox Picture5
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         Height          =   855
         Left            =   5520
         ScaleHeight     =   855
         ScaleWidth      =   975
         TabIndex        =   10
         Top             =   0
         Width           =   975
         Begin VB.Timer Timer1
            Interval        =   50
            Left            =   120
            Top             =   120
         End
      End
      Begin VB.Image homebtn
         Height          =   495
         Left            =   2640
         MouseIcon       =   "frmbrowse.frx":0C1E
         MousePointer    =   99  'Custom
         ToolTipText     =   "Home"
         Top             =   30
         Width           =   495
      End
      Begin VB.Image refreshbtn
         Height          =   495
         Left            =   2160
         MouseIcon       =   "frmbrowse.frx":0D70
         MousePointer    =   99  'Custom
         ToolTipText     =   "Refresh"
         Top             =   30
         Width           =   495
      End
      Begin VB.Image stopbtn
         Height          =   495
         Left            =   1680
         MouseIcon       =   "frmbrowse.frx":0EC2
         MousePointer    =   99  'Custom
         ToolTipText     =   "Stop"
         Top             =   30
         Width           =   480
      End
      Begin VB.Image forbtn
         Height          =   480
         Left            =   1080
         MouseIcon       =   "frmbrowse.frx":1014
         MousePointer    =   99  'Custom
         ToolTipText     =   "Forward"
         Top             =   30
         Width           =   480
      End
      Begin VB.Image backbtn
         Height          =   480
         Left            =   600
         MouseIcon       =   "frmbrowse.frx":1166
         MousePointer    =   99  'Custom
         ToolTipText     =   "Back"
         Top             =   30
         Width           =   480
      End
      Begin VB.Image Image1
         Height          =   255
         Left            =   240
         Top             =   60
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture6
      BorderStyle     =   0  'None
      Height          =   400
      Left            =   0
      ScaleHeight     =   405
      ScaleWidth      =   2400
      TabIndex        =   12
      Top             =   1340
      Visible         =   0   'False
      Width           =   2400
      Begin VB.Line Line7
         BorderColor     =   &H00808080&
         X1              =   0
         X2              =   0
         Y1              =   0
         Y2              =   360
      End
      Begin VB.Line Line6
         BorderColor     =   &H00FFFFFF&
         X1              =   20
         X2              =   20
         Y1              =   0
         Y2              =   360
      End
      Begin VB.Line Line2
         BorderColor     =   &H00808080&
         Index           =   1
         X1              =   0
         X2              =   2640
         Y1              =   360
         Y2              =   360
      End
      Begin VB.Line Line1
         BorderColor     =   &H00FFFFFF&
         Index           =   1
         X1              =   0
         X2              =   6480
         Y1              =   375
         Y2              =   375
      End
      Begin VB.Line Line1
         BorderColor     =   &H00FFFFFF&
         Index           =   0
         X1              =   0
         X2              =   6480
         Y1              =   15
         Y2              =   15
      End
      Begin VB.Line Line2
         BorderColor     =   &H00808080&
         Index           =   0
         X1              =   0
         X2              =   2640
         Y1              =   0
         Y2              =   0
      End
      Begin VB.Line Line5
         BorderColor     =   &H00808080&
         X1              =   2380
         X2              =   2380
         Y1              =   360
         Y2              =   0
      End
      Begin VB.Line Line4
         BorderColor     =   &H00FFFFFF&
         X1              =   2400
         X2              =   2400
         Y1              =   360
         Y2              =   0
      End
      Begin VB.Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Links"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   120
         TabIndex        =   13
         Top             =   75
         Width           =   465
      End
   End
   Begin VB.Line Line3
      X1              =   0
      X2              =   0
      Y1              =   1560
      Y2              =   8640
   End
   Begin VB.Menu mnubar
      Caption         =   "File"
      Index           =   0
      Visible         =   0   'False
      Begin VB.Menu mnuwnd
         Caption         =   "New Window"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuopen
         Caption         =   "Open"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuedit
         Caption         =   "Edit"
         Shortcut        =   ^E
      End
      Begin VB.Menu mnusave
         Caption         =   "Save"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnusaveas
         Caption         =   "Save as"
      End
      Begin VB.Menu mnusep
         Caption         =   "-"
      End
      Begin VB.Menu mnuorint
         Caption         =   "Print"
         Shortcut        =   ^P
      End
      Begin VB.Menu mnuset
         Caption         =   "Page Setup"
      End
      Begin VB.Menu mnuprop
         Caption         =   "Properties"
      End
      Begin VB.Menu mnusep1
         Caption         =   "-"
      End
      Begin VB.Menu mnuexit
         Caption         =   "Exit"
         Shortcut        =   {F12}
      End
   End
   Begin VB.Menu mnubar
      Caption         =   "Editmnu"
      Index           =   1
      Visible         =   0   'False
      Begin VB.Menu mnucut
         Caption         =   "Cut"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnucopy
         Caption         =   "Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnupaste
         Caption         =   "Paste"
         Shortcut        =   ^V
      End
      Begin VB.Menu mnudelete
         Caption         =   "Delete"
         Shortcut        =   {DEL}
      End
      Begin VB.Menu mnusep3
         Caption         =   "-"
      End
      Begin VB.Menu mnuselect
         Caption         =   "Select All"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnusep4
         Caption         =   "-"
      End
      Begin VB.Menu mnufind
         Caption         =   "Find"
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu mnubar
      Caption         =   "mnu"
      Index           =   2
      Visible         =   0   'False
      Begin VB.Menu mnugoto
         Caption         =   "Goto"
         Begin VB.Menu mnuback
            Caption         =   "Back"
         End
         Begin VB.Menu mnuforward
            Caption         =   "Forward"
         End
         Begin VB.Menu mnuhome
            Caption         =   "Home Page"
         End
      End
      Begin VB.Menu mnustop
         Caption         =   "Stop"
      End
      Begin VB.Menu mnurefresh
         Caption         =   "Refresh"
      End
      Begin VB.Menu mnuep5
         Caption         =   "-"
      End
      Begin VB.Menu mnusource
         Caption         =   "Page Source"
      End
      Begin VB.Menu mnufull
         Caption         =   "Full Screen"
      End
      Begin VB.Menu mnusep6
         Caption         =   "-"
      End
      Begin VB.Menu mnulinks
         Caption         =   "Vb programing links"
         Shortcut        =   {F4}
      End
      Begin VB.Menu mnuvbgame
         Caption         =   "Vb game programing links"
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnvbsample
         Caption         =   "Vb samples"
         Shortcut        =   {F6}
      End
      Begin VB.Menu mnusrch
         Caption         =   "Search for ""vb"""
         Shortcut        =   {F7}
      End
      Begin VB.Menu mnuoptions
         Caption         =   "Vb search options"
         Shortcut        =   {F8}
      End
      Begin VB.Menu sep8
         Caption         =   "-"
      End
      Begin VB.Menu mnusearch
         Caption         =   "Search"
         Shortcut        =   {F9}
      End
      Begin VB.Menu mnuhomepage
         Caption         =   "Home Page"
      End
      Begin VB.Menu mnuskin
         Caption         =   "Skin"
      End
   End
   Begin VB.Menu mnubar
      Caption         =   "mnus"
      Index           =   3
      Visible         =   0   'False
      Begin VB.Menu mnubookbarkadd
         Caption         =   "Add Bookmark"
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuorganize
         Caption         =   "Organize Bookmarks"
         Shortcut        =   {F3}
      End
      Begin VB.Menu mnusep9
         Caption         =   "-"
      End
      Begin VB.Menu mnubook
         Caption         =   "Mostafa vb page"
         Index           =   0
      End
   End
   Begin VB.Menu mnubar
      Caption         =   "mnu"
      Index           =   4
      Visible         =   0   'False
      Begin VB.Menu mnuupdate
         Caption         =   "Update Links"
      End
      Begin VB.Menu mnuabout
         Caption         =   "About"
      End
   End
Attribute VB_Name = "frmbrowse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mx As Integer
Dim my As Integer
Dim stext As String
Dim curg As Integer
Dim MouseStartx
Dim indx As Integer
Dim itmtex(9) As String
Dim title As String
Dim homepage As String
Dim skin As String
Sub newfrm()
On Error Resume Next
    Static lDocumentCount As Long
    Dim frmD As frmbrowse
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmbrowse
    frmD.Show
    frmD.SetFocus
    frmD.mnubookbarkadd.Enabled = False
    frmD.mnuorganize.Enabled = False
End Sub
Sub addlinks(filename As String)
Dim a As String
On Error Resume Next
indx = 0
ListView1.ListItems.Clear
Open filename For Input As #1
Input #1, a
Input #1, b
If a <> "" Then
indx = indx + 1
ListView1.ListItems.Add indx, , a, 1, 1
ListView1.ListItems(indx).Tag = b
ListView1.ListItems(indx).ToolTipText = b
End If
Loop Until EOF(1)
Close #1
End Sub
Sub addbooks(filename As String)
Dim a As String
On Error Resume Next
indeex = -1
Open filename For Input As #1
Input #1, a
Input #1, b
If a <> "" Then
indeex = indeex + 1
Load Me.mnubook(indeex)
Me.mnubook(indeex).Visible = True
Me.mnubook(indeex).Caption = a
Me.mnubook(indeex).Tag = b
End If
Loop Until EOF(1)
Close #1
End Sub
Sub getitems()
Dim a As String
On Error Resume Next
Open App.Path & "\items.txt" For Input As #1
Input #1, a
If a <> "" Then
Combo1.AddItem a
End If
Loop Until EOF(1)
Close #1
End Sub
Sub additems()
On Error Resume Next
Dim i As Integer
Dim a As String
Open App.Path & "\items.txt" For Output As #1
For i = 0 To Combo1.ListCount - 1
Write #1, Combo1.List(i)
Next i
Close #1
End Sub
Sub savebook()
On Error Resume Next
Dim i As Integer
Dim a As String
Open App.Path & "\bookmarks.txt" For Output As #1
For i = 0 To indeex
Write #1, mnubook(i).Caption
Write #1, mnubook(i).Tag
Next i
Close #1
End Sub
Sub Loadskin(filename As String)
On Error Resume Next
Open filename For Input As 1
Input #1, a
Input #1, b
If a = "clr" Then
titlebar.BackColor = b
Picture1.BackColor = b
Picture2.BackColor = b
Picture4.BackColor = b
Picture6.BackColor = b
Picture7.BackColor = b
End If
If a = "titleclr" Then
titlebar.ForeColor = b
End If
If a = "progclr" Then
Picture4.FillColor = b
End If
If a = "foreclr" Then
titlebar.ForeColor = b
Me.ForeColor = b
Picture1.ForeColor = b
Picture2.ForeColor = b
Picture4.ForeColor = b
For i = 0 To 3
mnu(i).ForeColor = b
Next i
End If
If a = "titlepic" Then
Picture11.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
Picture11.Tag = (App.Path & "\" & b & ".bmp")
'Clip1.Picture = LoadPicture(App.Path & "\skins\logo1.bmp")
End If
If a = "logopic" Then
Clip1.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
End If
If a = "logocol" Then
Clip1.Cols = b
End If
If a = "logowdth" Then
Clip1.ClipWidth = b
End If
If a = "mnupic" Then
Picture3.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
Picture3.Tag = (App.Path & "\" & b & ".bmp")
End If
If a = "backbtn" Then
backbtn.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
backbtn.Tag = b
End If
If a = "forbtn" Then
forbtn.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
forbtn.Tag = b
End If
If a = "icon" Then
Image1.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
End If
If a = "stopbtn" Then
stopbtn.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
stopbtn.Tag = b
End If
If a = "refreshbtn" Then
refreshbtn.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
refreshbtn.Tag = b
End If
If a = "homebtn" Then
homebtn.Picture = LoadPicture(App.Path & "\" & b & ".bmp")
homebtn.Tag = b
End If
Loop Until EOF(1)
Close #1
End Sub
Private Sub backbtn_Click()
wb.GoBack
End Sub
Private Sub backbtn_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
End Sub
Private Sub backbtn_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
If Button = False Then
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & "2.bmp")
End If
End Sub
Private Sub backbtn_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
Dim fnd As Boolean
Dim i As Integer
If KeyCode = vbKeyReturn Then
wb.Navigate Combo1.Text
fnd = False
For i = 0 To Combo1.ListCount
If Combo1.List(i) = Combo1.Text Then
fnd = True
Exit For
End If
Next i
If fnd = False Then
Combo1.AddItem Combo1.Text
additems
End If
End If
End Sub
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Timer2.Enabled = True
End Sub
Private Sub Command1_Click()
On Error Resume Next
If mnusearch.Checked = False Then
On Error Resume Next
mnusearch.Checked = True
mnulinks.Checked = False
mnuvbgame.Checked = False
mnvbsample.Checked = False
ListView1.Visible = True
Picture7.Visible = True
Picture6.Visible = True
Picture7_MouseUp 1, 1, 1, 1
Label1.Caption = "Search"
addlinks App.Path & "\search.txt"
Exit Sub
mnusearch.Checked = False
mnulinks.Checked = False
ListView1.Visible = False
Picture6.Visible = False
Picture7.Visible = False
wb.Left = 0
Form_Resize
Exit Sub
End If
End Sub
Private Sub conta_Resize()
On Error Resume Next
If pge.Height > conta.Height Then
VScroll1.Enabled = True
VScroll1.Enabled = False
End If
VScroll1.Max = pge.Height - conta.Height
VScroll1.Height = conta.Height - 50
End Sub
Private Sub Command2_Click()
On Error Resume Next
wb.Navigate "mailto:"
wb.GoBack
End Sub
Private Sub forbtn_Click()
wb.GoForward
End Sub
Private Sub forbtn_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
End Sub
Private Sub forbtn_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
If Button = False Then
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & "2.bmp")
End If
End Sub
Private Sub forbtn_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
End Sub
Private Sub Form_Activate()
On Error Resume Next
Form_Resize
End Sub
Private Sub Form_Load()
On Error Resume Next
addbooks App.Path & "\bookmarks.txt"
getitems
indd = -1
Open App.Path & "\srch.txt" For Input As #1
indd = indd + 1
Input #1, itm(indd)
Loop Until EOF(1)
Close #1
Open App.Path & "\place.inf" For Input As #2
Input #2, a, b, c, d
Me.Move a, b, c, d
Close #2
Open App.Path & "\home.inf" For Input As #1
Input #1, homepage
Input #1, skin
Close #1
Loadskin (App.Path & "\" & skin & ".inf")
wb.Navigate homepage
End Sub
Private Sub Form_Resize()
On Error Resume Next
wb.Width = Me.ScaleWidth - wb.Left
wb.Height = Me.ScaleHeight - wb.Top - Picture4.Height
ListView1.Height = Me.ScaleHeight - ListView1.Top - Picture4.Height
Picture7.Height = Me.ScaleHeight - Picture7.Top - Picture4.Height
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
additems
Open App.Path & "\place.inf" For Output As #1
Print #1, Me.Left & "," & Me.Top & "," & Me.Width & "," & Me.Height
Close #1
End Sub
Private Sub homebtn_Click()
On Error Resume Next
wb.Navigate homepage
End Sub
Private Sub homebtn_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
End Sub
Private Sub homebtn_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
If Button = False Then
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & "2.bmp")
End If
End Sub
Private Sub homebtn_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
End Sub
Private Sub maxmize_Click()
Me.WindowState = 2
End Sub
Private Sub minimize_Click()
Me.WindowState = 1
End Sub
Private Sub Image1_Click()
'wb.GoSearch
End Sub
Private Sub Label1_Click()
On Error Resume Next
mnulinks.Checked = False
ListView1.Visible = False
Picture6.Visible = False
Picture7.Visible = False
wb.Left = 0
Form_Resize
End Sub
Private Sub ListView1_Click()
On Error Resume Next
If ListView1.SelectedItem <> 0 Then
newfrm
Screen.ActiveForm.wb.Navigate ListView1.SelectedItem.Tag
End If
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error Resume Next
stext = ListView1.SelectedItem.Tag
wb_ProgressChange 0, 100
End Sub
Private Sub mnu_Click(Index As Integer)
Me.PopupMenu mnubar(Index), , mnu(Index).Left, mnu(Index).Top + mnu(Index).Height
End Sub
Private Sub mnu_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
For i = 0 To 4
If mnu(i).BackStyle = 1 Then
mnu(i).BackStyle = 0
End If
Next i
If mnu(Index).BackStyle = 0 Then
mnu(Index).BackStyle = 1
mnu(Index).BackColor = Me.BackColor
End If
End Sub
Private Sub mnuabout_Click()
On Error Resume Next
frmAbout.Show vbModal
End Sub
Private Sub mnuback_Click()
wb.GoBack
End Sub
Private Sub mnubook_Click(Index As Integer)
On Error Resume Next
wb.Navigate mnubook(Index).Tag
End Sub
Private Sub mnubookbarkadd_Click()
On Error Resume Next
indeex = indeex + 1
Load mnubook(indeex)
mnubook(indeex).Caption = title
mnubook(indeex).Tag = wb.LocationURL
savebook
End Sub
Private Sub mnucopy_Click()
On Error Resume Next
wb.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnucut_Click()
On Error Resume Next
wb.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnudelete_Click()
On Error Resume Next
wb.ExecWB OLECMDID_DELETE, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnuedit_Click()
On Error Resume Next
mnusource_Click
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnufind_Click()
On Error Resume Next
wb.ExecWB OLECMDID_FIND, OLECMDEXECOPT_PROMPTUSER
End Sub
Private Sub mnuforward_Click()
wb.GoForward
End Sub
Private Sub mnuhome_Click()
On Error Resume Next
wb.Navigate homepage
End Sub
Private Sub mnuhomepage_Click()
On Error Resume Next
homepage = InputBox("Enter the url for the page that you want to make it your home page.", "Select homepage", homepage)
Open App.Path & "\home.inf" For Output As #1
Write #1, homepage
Write #1, skin
Close #1
End Sub
Private Sub mnulinks_Click()
On Error Resume Next
If mnulinks.Checked = False Then
On Error Resume Next
mnulinks.Checked = True
mnuvbgame.Checked = False
mnusearch.Checked = False
mnvbsample.Checked = False
ListView1.Visible = True
Picture7.Visible = True
Picture6.Visible = True
Picture7_MouseUp 1, 1, 1, 1
Label1.Caption = "Vb programing links"
addlinks App.Path & "\links.txt"
Exit Sub
mnulinks.Checked = False
ListView1.Visible = False
mnusearch.Checked = False
Picture6.Visible = False
Picture7.Visible = False
wb.Left = 0
Form_Resize
Exit Sub
End If
End Sub
Private Sub mnuopen_Click()
On Error GoTo er
With dialog
.Filter = "Html files (*.html,*.htm)|*.html;*.htm|All files (*.*)|*.*|"
.ShowOpen
wb.Navigate .filename
End With
Exit Sub
If Err.Description <> "Cancel was selected." Then
MsgBox Err.Description
End If
End Sub
Private Sub mnuoptions_Click()
On Error Resume Next
srchlist.Show vbModal
End Sub
Private Sub mnuorganize_Click()
edit.Show vbModal
End Sub
Private Sub mnuorint_Click()
On Error Resume Next
wb.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnupaste_Click()
On Error Resume Next
wb.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnuprop_Click()
On Error Resume Next
wb.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_PROMPTUSER
End Sub
Private Sub mnurefresh_Click()
On Error Resume Next
wb.Refresh
End Sub
Private Sub mnusave_Click()
On Error Resume Next
wb.ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnusaveas_Click()
On Error Resume Next
wb.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnusearch_Click()
On Error Resume Next
If mnusearch.Checked = False Then
On Error Resume Next
mnusearch.Checked = True
mnulinks.Checked = False
mnuvbgame.Checked = False
mnvbsample.Checked = False
ListView1.Visible = True
Picture7.Visible = True
Picture6.Visible = True
Picture7_MouseUp 1, 1, 1, 1
Label1.Caption = "Search"
addlinks App.Path & "\search.txt"
Exit Sub
mnusearch.Checked = False
mnulinks.Checked = False
ListView1.Visible = False
Picture6.Visible = False
Picture7.Visible = False
wb.Left = 0
Form_Resize
Exit Sub
End If
End Sub
Private Sub mnuselect_Click()
On Error Resume Next
wb.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnuset_Click()
On Error Resume Next
wb.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DONTPROMPTUSER
End Sub
Private Sub mnuskin_Click()
On Error Resume Next
skin = InputBox("Enter the name of the skin you want to open", "Select Skin", skin)
Open App.Path & "\home.inf" For Output As #1
Write #1, homepage
Write #1, skin
Close #1
Loadskin (App.Path & "\" & skin & ".inf")
End Sub
Private Sub mnusource_Click()
On Error Resume Next
Open App.Path & "\temp.txt" For Output As #1
Print #1, Inet1.OpenURL(wb.LocationURL, 0)
Close #1
Shell "Notepad " & App.Path & "\temp.txt", vbNormalFocus
End Sub
Private Sub mnusrch_Click()
On Error Resume Next
itmtex(8) = "http://search.netscape.com/cgi-bin/search?search=vb"
itmtex(9) = "http://ink.yahoo.com/bin/query?p=vb&hc=0&hs=0"
itmtex(5) = "http://infoseek.go.com/titles?qt=vb"
itmtex(4) = "http://www.goto.com/d/search/;$sessionid$AQWZ5ZIAAFSV3QFIEEWQPUQ?type=home&Keywords=vb"
itmtex(0) = "http://search.about.com/scripts/query70.asp?terms=vb&trail=&Site=home&SUName=home&COB=home&TopNode=%2F"
itmtex(3) = "http://search.excite.com/search.gw?search=vb"
itmtex(6) = "http://www.looksmart.com/r_search?look=&searck=&key=vb"
itmtex(1) = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&style=stext&q=vb"
itmtex(2) = "http://www.directhit.com/fcgi-bin/TopTenDemo.fcg?cmd=demo_qry&oose=1&qry=vb"
itmtex(7) = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=vb"
For i = 0 To 9
If itm(i) = True Then
newfrm
Screen.ActiveForm.wb.Navigate itmtex(i)
End If
Next i
End Sub
Private Sub mnustop_Click()
On Error Resume Next
wb.Stop
End Sub
Private Sub mnuupdate_Click()
On Error Resume Next
Shell App.Path & "\update.exe", vbNormalFocus
End Sub
Private Sub mnuvbgame_Click()
On Error Resume Next
If mnuvbgame.Checked = False Then
On Error Resume Next
mnuvbgame.Checked = True
mnvbsample.Checked = False
mnulinks.Checked = False
mnusearch.Checked = False
ListView1.Visible = True
Picture7.Visible = True
Picture6.Visible = True
Picture7_MouseUp 1, 1, 1, 1
Label1.Caption = "Vb game programing links"
addlinks App.Path & "\game.txt"
Exit Sub
mnuvbgame.Checked = False
ListView1.Visible = False
Picture6.Visible = False
mnusearch.Checked = False
Picture7.Visible = False
wb.Left = 0
Form_Resize
Exit Sub
End If
End Sub
Private Sub mnuwnd_Click()
newfrm
End Sub
Private Sub mnvbsample_Click()
On Error Resume Next
If mnvbsample.Checked = False Then
On Error Resume Next
mnvbsample.Checked = True
mnuvbgame.Checked = False
mnulinks.Checked = False
ListView1.Visible = True
mnusearch.Checked = False
Picture7.Visible = True
Picture6.Visible = True
Picture7_MouseUp 1, 1, 1, 1
Label1.Caption = "Vb samples"
addlinks App.Path & "\samples.txt"
Exit Sub
mnvbsample.Checked = False
ListView1.Visible = False
Picture6.Visible = False
mnusearch.Checked = False
Picture7.Visible = False
wb.Left = 0
Form_Resize
Exit Sub
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
For i = 0 To 4
If mnu(i).BackStyle = 1 Then
mnu(i).BackStyle = 0
End If
Next i
End Sub
Private Sub Picture1_Resize()
On Error Resume Next
Picture5.Top = (Picture1.Height / 2) - (Picture5.Height / 2)
If Picture1.Width > homebtn.Left + homebtn.Width + (Picture5.ScaleWidth + 200) Then
Picture5.Visible = True
Picture5.Left = Picture1.Width - Picture5.Width - 50
Combo1.Width = Picture1.ScaleWidth - Combo1.Left - (Picture5.ScaleWidth + 200)
Picture5.Visible = False
Combo1.Width = Picture1.ScaleWidth - Combo1.Left - 200
End If
End Sub
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
For i = 0 To 4
If mnu(i).BackStyle = 1 Then
mnu(i).BackStyle = 0
End If
Next i
End Sub
Private Sub Picture2_Paint()
On Error Resume Next
Picture2.Cls
Dim x As Single
Dim y As Single
y = 0
x = 0
Picture2.PaintPicture Picture3.Picture, 0, 0, Picture3.Width, Picture3.Height, 0, 0, Picture3.Width, Picture3.Height
x = x + Picture3.Width
Picture2.PaintPicture Picture3.Picture, x, y, Picture3.Width, Picture3.Height, 0, 0, Picture3.Width, Picture3.Height
If x > Picture2.Width Then
x = -Picture3.Width
y = y + Picture3.Height
End If
Loop Until y > Picture2.ScaleHeight
End Sub
Private Sub Picture4_Resize()
On Error Resume Next
Command1.Left = Picture4.ScaleWidth - Command1.Width
Command2.Left = Picture4.ScaleWidth - Command1.Width * 2
End Sub
Private Sub Picture5_Click()
On Error Resume Next
wb.Navigate homepage
End Sub
Private Sub Picture6_Resize()
On Error Resume Next
Line5.X1 = Picture6.Width - 40
Line5.X2 = Picture6.Width - 40
Line4.X1 = Picture6.Width - 25
Line4.X2 = Picture6.Width - 25
Line1(0).X2 = Picture6.Width - 25
Line2(0).X2 = Picture6.Width - 25
Line1(1).X2 = Picture6.Width - 25
Line2(1).X2 = Picture6.Width - 25
End Sub
Private Sub Picture7_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MouseStartx = x
End Sub
Private Sub Picture7_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
  If Button = vbLeftButton Then

         Picture7.Left = Picture7.Left - (MouseStartx - x)
    End If
End Sub
Private Sub Picture7_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  On Error Resume Next
  If Button = vbLeftButton Then

ListView1.Width = Picture7.Left + ListView1.Left - 250
wb.Left = Picture7.Left + Picture7.Width
Picture6.Width = Picture7.Left
Form_Resize
    End If
End Sub
Private Sub refreshbtn_Click()
wb.Refresh
End Sub
Private Sub refreshbtn_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
End Sub
Private Sub refreshbtn_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
If Button = False Then
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & "2.bmp")
End If
End Sub
Private Sub refreshbtn_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
End Sub
Private Sub stopbtn_Click()
wb.Stop
End Sub
Private Sub stopbtn_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
End Sub
Private Sub stopbtn_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
homebtn.Picture = LoadPicture(App.Path & "\" & homebtn.Tag & ".bmp")
refreshbtn.Picture = LoadPicture(App.Path & "\" & refreshbtn.Tag & ".bmp")
backbtn.Picture = LoadPicture(App.Path & "\" & backbtn.Tag & ".bmp")
forbtn.Picture = LoadPicture(App.Path & "\" & forbtn.Tag & ".bmp")
If Button = False Then
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & "2.bmp")
End If
End Sub
Private Sub stopbtn_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
stopbtn.Picture = LoadPicture(App.Path & "\" & stopbtn.Tag & ".bmp")
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
curg = curg + 1
If curg = Clip1.Cols Then curg = 1
Clip1.ClipHeight = Clip1.Picture.Height
Picture5.Picture = Clip1.GraphicCell(curg)
End Sub
Private Sub titlebar_DblClick()
If Me.WindowState = 0 Then
Me.WindowState = 2
Exit Sub
Me.WindowState = 0
Exit Sub
End If
End Sub
Private Sub titlebar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
mx = x
my = y
End Sub
Private Sub titlebar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = vbLeftButton Then
Me.Top = Me.Top - (my - y)
Me.Left = Me.Left - (mx - x)
End If
For i = 0 To 3
If mnu(i).BackStyle = 1 Then
mnu(i).BackStyle = 0
End If
Next i
End Sub
Private Sub titlebar_Paint()
On Error Resume Next
titlebar.Cls
Dim x As Single
Dim y As Single
y = 0
x = 0
titlebar.PaintPicture Picture11.Picture, 0, 0, Picture11.Width, Picture11.Height, 0, 0, Picture11.Width, Picture11.Height
x = x + Picture11.Width
titlebar.PaintPicture Picture11.Picture, x, y, Picture11.Width, Picture11.Height, 0, 0, Picture11.Width, Picture11.Height
If x > titlebar.Width Then
x = -Picture11.Width
y = y + Picture11.Height
End If
Loop Until y > titlebar.ScaleHeight
titlebar.CurrentX = 0
titlebar.CurrentY = 30
titlebar.Print "    " & titlebar.Tag
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Dim splited As Integer
Dim f As Integer
f = FreeFile
Open App.Path & "\items.txt" For Input As #f
Input #f, a
x = Combo1.Text
splited = InStr(1, a, Combo1.Text)
'Combo1.SelStart = splited + Len(X) - 1
'Combo1.SelLength = Len(a) - splited + Len(X) - 1
If splited <> 0 Then
Combo1.Text = a
Combo1.SelStart = splited + Len(x) - 1
Combo1.SelLength = Len(a) - splited + Len(x) - 1
GoTo endd
End If
Loop Until EOF(f)
endd:
Close #f
Timer2.Enabled = False
End Sub
Private Sub VScroll1_Scroll()
pge.Top = -VScroll1.Value
End Sub
Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Combo1.Text = URL
End Sub
Private Sub wb_DownloadBegin()
Timer1.Enabled = True
End Sub
Private Sub wb_DownloadComplete()
On Error Resume Next
Timer1.Enabled = False
curg = 1
Picture5.Picture = Clip1.GraphicCell(curg)
End Sub
Private Sub wb_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
l = Picture4.ScaleWidth / ProgressMax
Picture4.Cls
Rectangle Picture4.hDC, 0, 0, Progress * l, Picture4.ScaleHeight + 2
Picture4.Print " " & stext
End Sub
Private Sub wb_StatusTextChange(ByVal Text As String)
stext = Text
End Sub
Private Sub wb_TitleChange(ByVal Text As String)
On Error Resume Next
Me.Caption = Text & " - VB Net Browser"
title = Text
End Sub